 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mm As MainMenu
        Dim currentArea = Screen.FromControl(Me).WorkingArea

        Me.Text = "Hotel Program"
        Me.Height = 500
        Me.Width = 800

        Me.Top = currentArea.Top + CInt((currentArea.Height / 2) - (Me.Height / 2))
        Me.Left = currentArea.Left + CInt((currentArea.Width / 2) - (Me.Width / 2))

        mm = New MainMenu()
        mm.ShowMainMenu()

    End Sub
    Private Sub Form_Closed(ByVal sender As System.Object, ByVal ea As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        If MessageBox.Show("Are you sure you want to exit this program?", "Exit", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then
        ea.Cancel = False
        Else
        ea.Cancel = True
        End If

    End Sub

    
End Class
